home *** CD-ROM | disk | FTP | other *** search
- object G4PlaylistForm: TG4PlaylistForm
- Left = 367
- Top = 236
- Width = 361
- Height = 319
- Caption = 'GMP3 Playlist Editor'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- GradientStopColor = clPurple
- PixelsPerInch = 96
- TextHeight = 13
- object SecretPanel1: TSecretPanel
- Left = 0
- Top = 0
- Width = 353
- Height = 292
- Align = alClient
- TabOrder = 0
- object RxCheckListBox1: TRxCheckListBox
- Left = 1
- Top = 1
- Width = 266
- Height = 290
- Align = alClient
- Color = clBlack
- DragMode = dmAutomatic
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 0
- OnDragDrop = RxCheckListBox1DragDrop
- OnDragOver = RxCheckListBox1DragOver
- OnKeyPress = RxCheckListBox1KeyPress
- OnKeyUp = RxCheckListBox1KeyUp
- InternalVersion = 202
- end
- object RxCheckListBox2: TRxCheckListBox
- Left = 347
- Top = 1
- Width = 112
- Height = 321
- ItemHeight = 13
- TabOrder = 1
- Visible = False
- InternalVersion = 202
- end
- object Panel1: TPanel
- Left = 267
- Top = 1
- Width = 85
- Height = 290
- Align = alRight
- Caption = 'Panel1'
- TabOrder = 2
- object OrdAdjustLabel: TLabel
- Left = 8
- Top = 186
- Width = 58
- Height = 13
- Caption = 'Order Adjust'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object CloseBtn: TButton
- Left = 5
- Top = 7
- Width = 75
- Height = 25
- Caption = '&Close'
- TabOrder = 0
- OnClick = CloseBtnClick
- end
- object LoadListBtn: TButton
- Left = 5
- Top = 99
- Width = 75
- Height = 25
- Caption = '&Load Playlist(s)'
- TabOrder = 3
- OnClick = LoadListBtnClick
- end
- object SaveListBtn: TButton
- Left = 5
- Top = 124
- Width = 75
- Height = 25
- Caption = '&Save Playlist'
- TabOrder = 4
- OnClick = SaveListBtnClick
- end
- object AddListBtn: TButton
- Left = 5
- Top = 66
- Width = 75
- Height = 25
- Caption = 'Add &Playlist(s)'
- TabOrder = 2
- OnClick = AddListBtnClick
- end
- object AddSongBtn: TButton
- Left = 5
- Top = 40
- Width = 75
- Height = 25
- Caption = '&Add Song(s)'
- TabOrder = 1
- OnClick = AddSongBtnClick
- end
- object SpinButton1: TSpinButton
- Left = 6
- Top = 200
- Width = 73
- Height = 26
- DownGlyph.Data = {
- AE000000424DAE00000000000000360000002800000009000000060000000100
- 1000000000007800000000000000000000000000000000000000E03DE03DE03D
- E03DE03DE03DE03DE03DE03D0000E03DE03DE03DE03D0000E03DE03DE03DE03D
- 5400E03DE03DE03D000000000000E03DE03DE03D3902E03DE03D000000000000
- 00000000E03DE03D5702E03D0000000000000000000000000000E03D0600E03D
- E03DE03DE03DE03DE03DE03DE03DE03D0000}
- TabOrder = 6
- TabStop = True
- UpGlyph.Data = {
- AE000000424DAE00000000000000360000002800000009000000060000000100
- 1000000000007800000000000000000000000000000000000000E03DE03DE03D
- E03DE03DE03DE03DE03DE03D0500E03D0000000000000000000000000000E03D
- 3C02E03DE03D00000000000000000000E03DE03D3902E03DE03DE03D00000000
- 0000E03DE03DE03D5702E03DE03DE03DE03D0000E03DE03DE03DE03D0600E03D
- E03DE03DE03DE03DE03DE03DE03DE03DAE81}
- OnDownClick = SpinButton1DownClick
- OnEnter = SpinButton1Enter
- OnExit = SpinButton1Exit
- OnUpClick = SpinButton1UpClick
- end
- object RemoveSongBtn: TButton
- Left = 5
- Top = 232
- Width = 75
- Height = 25
- Caption = '&Remove Song'
- TabOrder = 7
- OnClick = RemoveSongBtnClick
- end
- object ClearListBtn: TButton
- Left = 5
- Top = 263
- Width = 75
- Height = 25
- Caption = 'Clear Playlist'
- TabOrder = 8
- OnClick = ClearListBtnClick
- end
- object ViewID3Btn: TButton
- Left = 5
- Top = 156
- Width = 75
- Height = 25
- Caption = '&ID3 Tag'
- TabOrder = 5
- OnClick = ViewID3BtnClick
- end
- end
- end
- object OpenDialogF1: TOpenDialog
- Filter = 'Play Lists(*.pls, *.m3u)|*.pls;*.m3u'
- Options = [ofHideReadOnly, ofAllowMultiSelect]
- Left = 48
- Top = 48
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = '.pls'
- Filter = 'Play Lists(*.pls, *.m3u)|*.pls;*.m3u'
- Left = 48
- Top = 120
- end
- object OpenDialog2: TOpenDialog
- DefaultExt = '*.mp3'
- Filter = 'MPEG Layer 3 Audio Files (*.mp3)|*.mp3|All Files (*.*)|*.*'
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist]
- Left = 48
- Top = 16
- end
- end
-